OBJ    "REVO"
*
*      LIST   DISPLAY
*
fLEX   EQU    #E208
*
       NIBASC "REVLEX  "
       CON(4) fLEX
       NIBHEX 0
       NIBHEX 0
       NIBHEX 0000
       NIBHEX 000000
       REL(5) FiLeNd
*
       NIBHEX 11
       NIBHEX 10
       NIBHEX 10
       NIBHEX 00000
       NIBHEX F
       CON(4) (TxTbSt)-(*)+1
       NIBHEX 0000
       NIBHEX 00000
*
       CON(3) (Tt001)-(TxTbSt)
       REL(5) REVx
       NIBHEX F
*
TxTbSt
Tt001  NIBHEX 7
       NIBASC "REV$"
       NIBHEX 10
*
       NIBHEX 1FF
*
       NIBHEX 411
REVx   GOVLNG =REV$
*
       @2F8D8 (@2F8D8)&#FFFFFFFFFFFF0000!#FF01
*
FiLeNd